Amiga Plus 2002 #3/Amiga Plus CD - 2002 - No. 03.iso/AmigaPlus/Demos/fxPAINT_Demo/Install

Text File | 2003-01-27 | 17.6 KB | 513 lines

; IOSPIRIT fxPAINT 2.0 Installation script
; (C) 1998-2003 by IOSPIRIT Felix Schwarz
; $VER: 2.0

(delopts "force" "askuser" "nofail")

(if (= @language "deutsch")
        (
                ; ----------------------------
                ; Let`s use German as language
                ; ----------------------------
                (set #welcome
                        (cat
                                "\n\n\n\nfxPAINT 2.0 Demo\n"
                                "©1998-2003 by Felix Schwarz\n\n\n"
                                "Willkommen zur fxPAINT Demo Installation!\n"
                                "Dieses Skript wird fxPAINT Demo auf Ihre HD installieren."
                        )
                )

                (set #askinstall "Wohin soll fxPAINT Demo installiert werden? (Es wird ein Verzeichnis erstellt)")
                (set #license "\n\n\n\n\n\nAkzeptieren Sie die Lizenzbedingungen?")
                (set #onlylicense "\n\n\n\n\nSie müssen die Lizenzbedinugen akzeptieren um diese Software installieren zu können und nutzen zu dürfen.")
                (set #cputxt "Welchen 68K-Prozessor haben Sie in Ihrem AMIGA ?")
                (set #cpuhelp "Wenn Sie sich unsicher sind, wählen Sie 68020. Diese Version arbeitet mit allen Systemen.")
                (set #copylibs "Überprüfe und kopiere benötigte Libraries..")
                (set #licensefile "Lizenz.txt")
                (set #useradd "Folgende Zeilen werden zur User-Startup hinzugefügt:\n\n")
                (set #copyprompt "Kopiere ..")

                (set #oldprompt "Sie sollten fxPAINT nicht über eine alte Version installieren. Die alte Version wird umbenannt.")

                (set #byebye "\n\n\n\n\n\n\nfxPAINT ist nun auf Ihrer Festplatte installiert.")

                (set #nohelp "Leider ist derzeit kein Hilfetext verfügbar.")

                (set #updateinstaller
                        (cat
                                "Es wurde eine veraltete Version des Installer gefunden.\n"
                                "Die Version 43.3 kann im Aminet unter\n\n"
                                "util/misc/Installier-43_3.lha\n\n"
                                "gefunden werden. Wenn möglich, sollten Sie möglichst bald\n"
                                "die neue Version installieren, vor allem dann, wenn während\n"
                                "dieser Installation Probleme auftreten sollten."
                        )
                )

                (set #updatewarpos
                        (cat
                                "Auf Ihrer Festplatte ist WarpUP mit der powerpc.library in\n"
                                "Version 16.1beta1 installiert. Diese Version verursacht auf\n"
                                "manchen System Stabilitätsprobleme. Installieren Sie in diesem\n"
                                "Fall bitte wieder die Originalversion 16.1 oder höher\n"
                                "Zu finden unter\n\n"
                                "ftp://de.aminet.net/pub/aminet/biz/haage/WarpUP_V51Upd.lha\n\n"
                                "fxSCAN 4.04 oder höher umgehen den Bug, der zuvor die 16.1beta1\n"
                                "notwendig gemacht hat.\n"
                        )
                )

                (set #amithlonpc "Ist dieses System ein AMITHLON-System?")
                (set #amiuseradd "Folgende Zeilen müssen zur User-Startup hinzugefügt werden, damit die Amithlon-Unterstützung funktioniert:\n\n")
                (set #amireset   "Sie haben angegeben, dass dies ein Amithlon-System ist. Führen Sie nach Beendigung der Installation bitte einen Neustart des Systems durch.")

                (set #ioerror "Während der Installation ist ein Fehler aufgetreten.\nBitte melden Sie diesen an [e-mail]\nVielen Dank.")

                (set #cpunonsupp "Die Demoversion ist nur auf einem System mit 68020 oder besser (auch PPC) läuffähig. Installation fortsetzen?")
        )
        (
                ; -----------------------------
                ; Let`s use English as language
                ; -----------------------------
                (set #welcome
                        (cat
                                "\n\n\n\nfxPAINT 2.0\n"
                                "©1998-2003 by Felix Schwarz\n\n\n"
                                "Welcome to the fxPAINT installation!\n"
                                "This script will install fxPAINT on your HD."
                        )
                )
                (set #askinstall "Where shall fxPAINT be installed. (A directory will be created)")
                (set #license "\n\n\n\n\n\nDo you accept the license agreement?")
                (set #onlylicense "\n\n\n\n\nYou have to accept the license agreement in order to be able to install this software and be allowed to use it.")
                (set #cputxt "Which 68K-CPU do you have installed in your AMIGA ?")
                (set #cpuhelp "If you`re not sure, which CPU is installed in your AMIGA, choose the 68000. This version works on all systems.")
                (set #copylibs "Checking and installing required libraries..")
                (set #copydocu "Copying fxPAINT-documentation..")
                (set #licensefile "License.txt")
                (set #copydocufile "Docs/English/")
                (set #useradd "The following lines will be added to your user-startup:\n\n")
                (set #copyprompt "Copying ..")

                (set #oldprompt "You should not install fxPAINT over an old version. The old version will be renamed.")

                (set #byebye "\n\n\n\n\n\n\n\nfxPAINT is now installed on your HD.")

                (set #nohelp "Sorry. No help text available at this point.")

                (set #updateinstaller
                        (cat
                                "An obsolete version of Installer has been found.\n"
                                "Version 43.3 can be found on Aminet at\n\n"
                                "util/misc/Installier-43_3.lha\n\n"
                                "gefunden werden. If possible, please update soon\n"
                                "to the newer version, especially if you encounter\n"
                                "any problems during installation."
                        )
                )

                (set #updatewarpos
                        (cat
                                "You have WarpUP with powerpc.library in version 16.1beta1\n"
                                "installed on your harddisk. This version can cause stability\n"
                                "problems on some systems. In this case please reinstall the\n"
                                "original version 16.1 or higher again, as can be found at\n\n"
                                "ftp://de.aminet.net/pub/aminet/biz/haage/WarpUP_V51Upd.lha\n\n"
                                "fxSCAN 4.04 or higher now also work around the bug that made the\n"
                                "use of 16.1beta1 necessary."
                        )
                )

                (set #amiuseradd "The following lines have to be added to the user-startup for Amithlon-support to work:\n\n")
                (set #amithlonpc "Is this system an AMITHLON-system?")
                (set #amireset   "You have selected that this is an Amithlon-system. Please reset your computer after this installation is done.")

                (set #ioerror "During installation an error occured.\nPlease report it to [e-mail]\nThank you.")

                (set #cpunonsupp "The demo version only runs on a system with 68020 or better (incl. PPC). Continue?")
        )
)

; ---------------------
; New: error handler :)
; ---------------------

(onerror
        (
                (if (> @ioerr 0)
                        (message
                                (cat #ioerror "\n\nInstaller error code: " @ioerr)
                        )
                )
        )
)

;-----------------------------
; New: Check installer version
;-----------------------------
(set #instver 0)
(set #currinst "43.3")

(set #biginst @installer-version)

(set #iver (/ #biginst 65536))
(set #irev (- #biginst (* #iver 65536)))

(set #instver (cat #iver "." #irev))

(if (< #instver #currinst)
        (
                (message #updateinstaller)
        )
)

; --------------------------------------
; Ok, let`s begin with a small greeting!
; --------------------------------------

(message #welcome)

(welcome)

; --------------------------------------------
; Present license file and wait for user input
; --------------------------------------------

(run (cat "C:run sys:Utilities/Multiview " #licensefile))

(set #licenseok
        (askbool
                (prompt #license)
                (help #license)
                (default 0)
        )
)

(if (<= #licenseok 0)
        (
                (message #onlylicense)
                (set @default-dest "nowhere")
                (exit)
        )
)

; -------------------------------------
; Set destination-directory for fxPAINT
; -------------------------------------
(set #installdir
        (askdir
                (prompt #askinstall)
                (help @askdir-help)
                (default @default-dest)
        )
)

; ------------------------------
; Set CPU installed in the AMIGA
; ------------------------------
(set #cpu 0)
(set #cpu2 (database "cpu"))

(if (< #cpu2 68020)
        (
                (message #cpunonsupp)
        )
)

; ---------------------------------------
; Also use the FPU installed in the AMIGA
; ---------------------------------------

(set #fpu (database "fpu"))
(if (not (patmatch "NOFPU" #fpu)) (set #cpu (+ #cpu 1)))

; -----------------------------------------
; Let the user verify the detection results
; -----------------------------------------

(set #amithlon 0)
(set #morphos 0)

(set #cpuvers
        (askchoice
                (choices "68020-060" "68020-060 + FPU" "MorphOS" "AOS 4" "Amithlon")
                (prompt #cputxt)
                (help   #cpuhelp)
                (default #cpu)
        )
)

; 020-060
(if (= #cpuvers 0)
        (
                (set #maincpusrc "InstallData/CPU/020/")
        )
)

; 020-060 + FPU
(if (= #cpuvers 1)
        (
                (set #maincpusrc "InstallData/CPU/020FPU/")
        )
)

; MorphOS
(if (= #cpuvers 2)
        (
                (set #maincpusrc "InstallData/CPU/020FPU/")
                (set #morphos 1)
        )
)

; OS 4
(if (= #cpuvers 3)
        (
                (set #maincpusrc "InstallData/CPU/020/")
        )
)

; Amithlon
(if (= #cpuvers 4)
        (
                (set #maincpusrc "InstallData/CPU/020FPU/")
                (set #amithlon 1)
        )
)

; -----------------------
; Check for older install
; -----------------------
(set #oldinst
        (tackon #installdir "fxPAINT")
)

(set #oldinstinfo
        (tackon #installdir "fxPAINT.info")
)

(if (exists #oldinst (noreq))
        (
                (set #rensucc 0)
                (set #rencnt  1)

                (while (= #rensucc 0)

                        (
                                (set #oldoldinst
                                        (tackon #installdir (cat "fxPAINT_old_" #rencnt))
                                )

                                (set #oldoldinstinfo
                                        (tackon #installdir (cat "fxPAINT_old_" #rencnt ".info"))
                                )

                                (if     (rename #oldinst #oldoldinst
                                                (prompt #oldprompt)
                                                (help #oldprompt)
                                        )

                                        (
                                                (set #rensucc 1)

                                                (rename #oldinstinfo #oldoldinstinfo
                                                        (prompt #oldprompt)
                                                        (help #oldprompt)
                                                )
                                        )
                                        (
                                                (set #rencnt (+ 1 #rencnt))
                                        )
                                )
                        )
                )
        )
)

; ----------------
; Copy basic files
; ----------------
(copyfiles
        (prompt #copyprompt)
        (help #nohelp)
        (source "InstallData/main_dir/")
        (dest #installdir)
        (pattern "#?")
)

;-------------------------------
; Copy new fxWARP 3 system files
;-------------------------------

(if (= #amithlon 0)
        (
                (if (= #morphos 0)
                        (
                                (copyfiles
                                        (prompt #copyprompt)
                                        (help #nohelp)
                                        (source "InstallData/Libs/")
                                        (dest "LIBS:")
                                        (pattern "fxWARP3#?")
                                )

                                (copyfiles
                                        (prompt #copyprompt)
                                        (help #nohelp)
                                        (source "InstallData/C/")
                                        (dest "C:")
                                        (pattern "fxWARP#?")
                                )
                        )
                )
        )
)

; ----------------
; Copy CPU version
; ----------------
(set #maincpudest
        (tackon #installdir "fxPAINT/")
)

(copyfiles
        (prompt #copyprompt)
        (help #nohelp)
        (source #maincpusrc)
        (dest #maincpudest)
        (pattern "#?")
)

; ------------------------------
; Add some lines to user-startup
; ------------------------------
(set #thewholepath
        (tackon #installdir "fxPAINT")
)

; -- Commented out as not too useful for the demo
;(set #startupadditions
;        ("Assign fxPAINT: REMOVE\nAssign fxPAINT: \"%s\"" #thewholepath)
;)

;(startup "IOSPIRIT fxPAINT"
;        (prompt #useradd
;                #startupadditions)
;        (help #nohelp)
;        (command #startupadditions)
;)

; ----------------------------------------------
; Add assign now, so user can use it immediately
; ----------------------------------------------

(makeassign "fxPAINT" #thewholepath)

;-----------------------------------
; New: Check powerpc.library version
;-----------------------------------

(set #powerpcsize
        (getsize "LIBS:powerpc.library")
)

(if (= #powerpcsize 111252)
        (
                (message #updatewarpos)
        )
)

;--------------------------------------------------
; Amithlon support installation routines
;--------------------------------------------------

(if (= #amithlon 1)
        (
                ;--------------------------------
                ; Add run_elf patch to the system
                ;--------------------------------

                ; Rename old/wrong positioned run_elf
                (if (exists "C:run_elf")
                        (
                                (run "rename C:run_elf   C:run_elf_wrongdir"
                                        (prompt #workprompt)
                                        (help   #nohelp)
                                )
                        )
                )

                (if (exists "C:run_elf86")
                        (
                                (run "rename C:run_elf86 C:run_elf86_wrongdir"
                                        (prompt #workprompt)
                                        (help   #nohelp)
                                )
                        )
                )

                ; Detect version and make sure we don't overwrite a newer version
                (set #install_runelf 0)

                (if (exists "C:AmithlonC/run_elf")
                        (

                                (set #runelfver 0)
                                (set #currrunelf "1.7")

                                (set #bigrunelf (getversion "C:AmithlonC/run_elf"))

                                (set #rever (/ #bigrunelf 65536))
                                (set #rerev (- #bigrunelf (* #rever 65536)))

                                (set #runelfver (cat #rever "." #rerev))

                                (if (< #runelfver #currrunelf)
                                        (
                                                (set #install_runelf 1)
                                        )
                                )
                        )
                )

                (if (not (exists "C:AmithlonC/run_elf" (noreq)))
                        (
                                (set #install_runelf 1)
                        )
                )

                (if (= #install_runelf 1)
                        (
                                (copyfiles
                                        (prompt #copyprompt)
                                        (help #nohelp)
                                        (source "InstallData/Amithlon/run_elf-1.7/")
                                        (dest "C:AmithlonC/")
                                        (pattern "run_elf#?")
                                )
                        )
                )

                (set #startupadditions "run <>NIL: C:AmithlonC/run_elf PATCH")

                (startup "run_elf"
                        (prompt #amiuseradd
                                #startupadditions)
                        (help #nohelp)
                        (command #startupadditions)
                )

                (message #amireset)
        )
)

; -------------------------
; Say Bye-Bye and Thank-You
; -------------------------

(message #byebye)

(set @default-dest #thewholepath)
(exit)